home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / interfaces / PInterface Translator / patches / OSUtils.patch < prev    next >
Encoding:
Text File  |  1993-09-16  |  374 b   |  7 lines  |  [TEXT/CCL2]
  1. (deftrap _equalstring ((str1 (:string 255)) (str2 (:string 255)) (casesens :boolean) (diacsens :boolean))
  2.   (:d0 :signed-integer)
  3.   (let ((s1 (%inc-ptr str1 1))
  4.         (s2 (%inc-ptr str2 1))
  5.         (length (logior (ash (%get-byte str1) 16) (%get-byte str2))))
  6.     (declare (dynamic-extent s1 s2))
  7.     (zerop (the fixnum (:register-trap #xA03C :a0 s1 :a1 s2 :d0 length)))))